﻿

Public Class cNpcText
    Private _Row As SortedList(Of String, sMysqlItem)

    Public Sub New(conn As MySQL, ID As UInt32)
        If IsNothing(conn) Then Throw New ArgumentNullException("cNpcText: conn is nothing")
        Dim sql As String = "SELECT * FROM npc_text WHERE ID=" & ID & ";"
        _Row = conn.ReadRow(sql)
    End Sub

    Public Property text0_0 As String
        Get
            If _Row.ContainsKey("text0_0") Then
                Return _Row.Item("text0_0").Value
            Else
                Return ""
            End If
        End Get
        Set(value As String)
            Stop
        End Set
    End Property
    Public Property text0_1 As String
        Get
            If _Row.ContainsKey("text0_1") Then
                Return _Row.Item("text0_1").Value
            Else
                Return ""
            End If
        End Get
        Set(value As String)
            Stop
        End Set
    End Property

End Class
